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ABSTRACT 


Software  for  reading  and  writing  of  Fast  and  Easy  Binary 
(FEB)  files  in  ASCII  format  is  documented  in  this  report.  The 
main  FORTRAN-V  FEB  utilities  were  rewritten  in  ASCII  FORTRAN  and 
additional  programs  were  developed  for  conversion  of  FEB  files  in 
FIELDATA  format  to  FEB  files  in  ASCII  format,  and  vice  versa. 
Implementation  of  these  programs  will  allow  FEB  file  software  to 

(continue  to  be  supported  by  software  updates  and  new  additions  on 

the  UNIVAC  1180  operating  system. 
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I.  INTRODUCTION 


During  1975,  FEB  files  were  first  used  at  the  Rosenstiel  School  of  Marine  and 
Atmospheric  Science  (University  of  Miami)  for  analyzing  profiling  current  meter 
data.  More  recently,  FEB  files  have  been  used  at  the  Naval  Ocean  Research  and 
Development  Activity  and  at  the  Naval  Oceanographic  Office  (N00).  Beginning  in 
1977,  software  packages  were  developed  at  N00  for  processing,  editing  and  plotting 
CTD  (conductivity,  temperature,  depth),  XBT  (expendable  bathythermograph),  and 
current  meter  data.  All  programs  in  these  packages  are  based  on  FEB  files  and 
many  are  common  to  all  three  data  types.  As  new  types  of  data  are  acquired, 
programs  are  written  to  initially  convert  them  to  FEB  files,  thus  making  them 
compatible  with  existing  software.  The  FEB  file  structure  has  played  an  important 
role  in  the  data  management  of  physical  oceanographic  data. 

The  original  FEB  programs  were  entirely  written  in  FORTRAN-V.  The  NOO  UNIVAC 
no  longer  supports  FORTRAN-V.  It  is  anticipated  that  by  mid  1980s,  the  ability  to 
compile  FORTRAN-V  programs  on  the  UNIVAC  will  be  lost,  although  existing  programs 
should  still  execute  or  run.  The  new  industry  standard  is  written  in  accordance 
with  the  specifications  of  the  American  National  Standards  Institute,  Inc.  (ANSI), 
in  ANSI  X3. 9-1978  (also  known  as  FORTRAN-77).  ASCII  FORTRAN  is  a  superset  of  this 
standard  FORTRAN  language.  Thus,  it  has  become  imperative  to  rewrite  the  basic 
FEB  input/output  (I/O)  routines  and  utilities  in  ASCII  FORTRAN  for  operation  on 
the  UNIVAC. 

The  changes  made  to  the  basic  read  and  write  routines,  ZREAD  and  ZWRIT,  are 
described  in  Section  II.  Program  listings  of  the  ASCII  FORTRAN  versions  are  given 
in  Appendix  A.  FEB  utilities  which  were  converted  are  described  in  Section  III. 
Documentation  of  programs  used  to  convert  FEB  files  in  FIELDATA  format  to  FEB 
files  in  ASCII  format,  and  vice  versa,  is  contained  in  Section  IV.  Program 
listings  of  the  FIELDATA  to  ASCII  conversion  programs  are  found  in  Appendix  B. 

II.  CHANGES  TO  FEB  READ  AND  WRITE  ROUTINES 


By  convention,  FEB  files  are  read  with  the  subroutine  ZREAD  and  written  with 
the  subroutine  ZWRIT.  A  complete  description  of  these  routines  is  given  by  Hallock 
(1980).  Changes  to  these  routines  were  made  for  ASCII  FORTRAN  compatibility  and  for 
conversion  to  direct-access  READ’S  and  WRITE’s. 

On  the  UNIVAC  operating  system  under  FORTRAN-V,  all  character  variables  are 
six  characters  in  length.  In  ASCII  FORTRAN,  all  character-variable  lengths  must 
be  declared.  In  keeping  with  the  original  number  of  characters  per  variable,  all 
character  variables  were  declared  CHARACTER*6  in  the  conversion  of  ZREAD  and  ZWRIT. 

CHARACTER*6  ADOCR , IPR , NMFR , NMBR 

Within  the  labeled-common  areas,  COMMON/RHDR/  was  split  into  two  common  areas 
COMMON/RHDR  and  C0MM0N/RHDR1.  RDHR1  contains  character  variables  previously 
contained  in  the  old  RHDR.  The  new  RHDR  contains  only  the  integer  variables 
previously  contained  in  the  old  RHDR.  This  change  was  necessitated  by  ASCII 
FORTRAN  rules.  The  new  common  areas  are: 

COMMON/RHDR/L R , NR , NBR , NFR , N I R , NAR 
COMMON/RHDR 1 /NMBR , NMFR , IPR ( 1 ) 
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The  original  description  of  FE8  files,  as  given  by  Hal  lock  (1980),  describe 
sequential,  unformatted,  non-direct-access  files.  ZREAD  and  ZWRIT  were  updated  in 
1981  by  Teague  to  reflect  a  random-access  mode.  The  files  were  written  and  read 
with  the  same  I/O  statements;  however,  the  starting  locations  for  the  READ'S  and 
WRITE's  were  set  with  a  FORTRAN-V  library  function  SETADR.  The  address  at  which 
to  start  performing  the  next  I/O  operation  was  calculated  from  the  FEB  header 
COMMON'S.  Thus,  the  data  records,  which  were  often  quite  large  were  skipped  over, 
resulting  in  faster  and  more  efficient  I/O. 

In  ASCII  FORTRAN  the  ability  to  randomly  access  the  disk  via  the  call  to  SETADR 
is  not  available.  In  order  to  maintain  the  rapid  access  of  FEB  files,  a  direct- 
access-file  type  was  chosen  where  FEB  segments  are  blocked  into  600-word  records 
within  ZREAD  and  ZWRIT.  The  header  record  is  used  to  calculate  the  record  number  for 
the  beginning  of  the  next  segment.  Data  records  can  then  be  skipped  (emulating 
SETADR)  for  fast  and  efficient  I/O.  The  header  information  and  data  are  packed  such 
that  the  header  information  is  always  written  from  the  beginning  of  the  600-word 
record.  To  date,  all  FEB  headers  have  contained  less  than  600  words.  For 
simplicity,  the  number  of  words  within  the  ASCII  FEB  headers  will  be  restricted  to 
600  words  or  less.  In  equation  form  the  word  limitation  is  given  by 

LR  +  NFR  +  NIR  +  NAR  +  (3  +  LR  +NAR)/2  £  592 

where  LR  is  the  number  of  variables,  NFR  is  the  number  of  floating-point  numbers 
(FDOC  COMMON),  NIR  is  the  number  of  integer  numbers  (IDOC  COMMON)  and  NAR  is  the 
number  of  alphanumeric  descriptors  (ADOC  COMMON).  The  last  term  on  the  left  side 
of  the  equation  has  arisen  because  of  the  change  from  a  six-character  FIELDATA 
word  to  a  four-character  ASCII  word.  Thus  the  six  characters  which  are  contained 
in  one  FIELDATA  word  require  one  and  one-half  ASCII  words.  For  example,  a  FEB 
file  containing  10  variables,  100  IDOC  words,  and  100  FDOC  words,  can  contain  up 
to  250  ADOC  words. 

The  direct-access  ASCII  FEB  files  are  opened  and  file  attributes  established 
in  ZREAD  and  ZWRIT  through  an  OPEN  statement,  which  is  used  to  make  the  connection 
between  the  logical  unit  and  the  file,  as  required  for  read  and  write  operations. 

The  OPEN  statement  has  the  form: 

OPEN (UNIT=IU,ACCESS=' DIRECT' ,F0RM= ' UNFORMATTED '  , 

STATUS= ' UNKNOWN ' ,RECL=600,ERR=9090) 

The  IF  status  flag  is  set  to  1  by  the  FORTRAN-V  ZREAD  and  ZWRIT  upon  end-of-file 
detection  prior  to  RETURN.  There  is  no  software  end-of-file  mark  after  the  last 
write  in  a  direct-access  file.  When  positioning  to  the  end-of-file  with  the  ASCII 
ZREAD  or  ZWRIT,  the  detection  of  a  read  error  or  finding  NBR  (segment  number)  set  to 
zero  is  used  to  imply  that  an  end-of-file  was  encountered,  thus  conforming  to  the 
conventions  set  by  the  original  ZREAD  and  ZWRIT. 

III.  FEB  UTILITIES  CONVERSION 


The  following  FEB  programs  were  converted  from  FORTRAN-V  to  ASCII  FORTRAN: 
ZLOOK,  ZDOC,  ZMOVE ,  ZMANGLE,  ZSCREEN,  ZFILT,  ZEDIT,  MAINPLOT,  and  FEBSUM.  These 
non-data-specific  utility  routines  for  FEB  files  have  provided  a  means  for  listing, 
restructuring,  filtering,  editing,  plotting,  and  reviewing  FEB  files.  Basically,  the 
conversion  of  FEB  utilities  to  ASCII  FORTRAN  entailed  replacing  COMMON/RHDR  with  the 


2 


new  conrion  areas  COMMON/RHDR  and  C0MM0N/RHDR1,  including  the  character  declaration 
statement,  and  making  the  appropriate  call  to  the  ASCII  version  of  ZREAD  or  ZWRIT. 
Other  areas  for  conversion  included  replacing  free-field  formatted  READ'S, 


READ (5, 100)  K 
100  FORMAT ( ) 
by  list-directed  READ'S, 

READ ( 5 , * )  K 

and  splitting  common  areas  containing  both  character  variables  and  numbers.  The 
documentation  of  these  programs  has  remained  the  same  and  their  execution  is 
transparent  to  the  user. 

IV.  FIELDATA  FEB  FILE  CONVERSION 


Large  quantities  of  data  are  archived  in  FEB  files  in  the  FIELDATA  format.  As 
old  software  continues  to  be  converted  to  ASCII  FORTRAN  and  new  software  is  written 
in  ASCII  FORTRAN,  it  becomes  advantageous  to  have  the  FEB  data  base  written  in  ASCII 
FORTRAN.  This  task  will  become  necessary  as  FORTRAN -V  becomes  obsolete  on  the  UNI  VAC 
operating  system,  and  will  become  urgent  if  the  FORTRAN-V  compilers  are  lost.  The 
program  FEBCON/ASCII  converts  the  present  FIELDATA  FEB  files  to  ASCII  FEB  files.  In 
the  event  that  FORTRAN-V  software  is  required  for  a  FEB  file  which  was  written  in 
ASCII  FORTRAN,  FEBCON/FLDATA  converts  ASCII  FEB  files  to  FIELDATA  FEB  files. 

Listings  of  both  of  these  programs  are  found  in  Appendix  B. 

The  program  FEBCON/ASCII  calls  the  subroutines  ZREAD,  ZWRITA,  and  FFDASC. 

ZREAD  is  the  FORTRAN-V  version  and  is  declared  as  EXTERNAL  in  this  ASCII  FORTRAN 
program.  ZWRITA  is  very  similar  to  ASCII  FORTRAN  ZWRIT,  with  the  exception  of  the 
ADOC  and  RHDR  common  areas.  FFDASC  is  an  ASCII  FORTRAN  library  subroutine  that 
allows  for  conversion  from  FIELDATA  to  ASCII.  The  user  input  to  this  program 
consists  of  a  single  line  following  the  prompt: 

ENTER  IU,NS, IS,MSGR, IOU, IOB ,MSGW 

where  IU  is  the  logical  unit  associated  with  the  input  FEB  file,  NS  is  the  number 
of  segments  to  convert  starting  at  segment  number  IS,  MSGR  is  the  read  message 
level,  IOU  is  the  logical  unit  associated  with  the  output  ASCII  FEB  file,  IOB  is 
the  segment  number  of  the  first  segment  written  in  the  output  file,  and  MSGW  is 
the  write  message  level. 

Similarly,  the  program  FEBCON/FLDATA  calls  ZREADA,  ZWRIT,  and  FASCFD.  ZWRIT 
is  the  FORTRAN-V  version  and  is  declared  as  EXTERNAL  in  this  ASCII  FORTRAN  program. 
ZREADA  is  similar  to  the  ASCII  FORTRAN  ZREAD,  with  the  exception  of  the  ADOC  and  RHDR 
common  areas.  FASCFD  is  an  ASCII  FORTRAN  library  subroutine  that  allows  for 
conversion  from  ASCII  to  FIELDATA.  The  user  input  is  analogous  to  FEBCON/ASCII. 

V.  CONCLUSION 


This  suite  of  FEB  programs  provides  a  foundation  for  the  transition  from 
FORTRAN-V  to  ASCII  FORTRAN.  The  philosophy  and  operation  of  the  programs  have 
remained  the  same  and  users  should  have  little  difficulty  in  switching  to  the  ASCII 
FORTRAN  mode  of  operation.  Furthermore,  these  programs  (with  the  exception  of  the 
FIELOATA  conversion  programs)  are  easily  transportable  to  other  computers,  and 
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presently  operate  with  no  modifications  on  a  DIGITAL  VAX  11/750.  These  programs 
should  operate,  with  few  modifications,  on  the  PDP  11/34  shipboard  computers. 
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APPENDIX  A 


SUBROUTINE  ZREAD(IU, IF, IBL ) 

THIS  SUBROUTINE  IS  THE  READ  HALF  OF  AN  INPUT-OUTPUT 
PACKAGE  FOR  HANDLING  NON-FORMATTED,  ASCII  FORTRAN 
WRITTEN  DATA  FILES,  COMMONLY  REFERRED  TO  AS 
FEB  (FAST  EASY  BINARY)  FILES. 


CHARACTER*6  ADOCR, IPR,NMFR,NMBR 
COMMON  /RHDR  /LR,NR,NBR,NFR,NIR,NAR 
COMMON  /RHDR1  /NMBR.NMFR,  IPR(1 ) 

NOTE:  ORIGINAL  ZREAO  CONSISTED  OF  RHDR  COMMON  ALONE, 

ASCII  FORTRAN  REQUIRED  PLACING  CHARACTER  VARIABLES  IN 
SEPARATE  COMMON  -  RHDR1. 

COMMON  /RDOCF/FDOCR(l)  /RDOC I /I DOCR ( 1 )  /RDOCA/ADOCR(l ) 

COMMON  /  RDATA  /  VR ( 1 ) 

COMMON  /  DIAGS  /  MSGR , MSGW , NNNR , NNNW , NN I P , NNF , NN I , NNA , I RST , IWST 
COMMON  /  JPOS  /  JUNIT ( 30) 

COMMON/DRDCOM/  JFLG, ISECR(30) 

DIMENSION  I UN  I T ( 30 ) 

LOGICAL  B1,B210,B10,B35,B45,B69,0D 
DATA  MSGR  /  2  / 

DATA  LLSW/1/,  IRST/1/ 

DATA  IBUF/600/ 

B1=MSGR.EQ. 1 

B210=MSGR -GE . 2. AND.MSGR .LE . 10 
B10=MSGR.EQ. 10 

B35=MSGR.EQ. 3. OR .MSGR -EQ. 5. OR .MSGR .EQ. 7. OR. MSGR. EQ. 9. OR.  MSGR. EQ.  10 
B45=MSGR.EQ.4.0R.MSGR.EQ. 5.0R.MSGR.GE.8.AND.MSGR.LE.10 
B69=MSGR . GE . 6 . AND . MSGR . LE . 9 


C 

C 


OPEN  DIRECT  ACCESS  FEB  FILES  AS  REQUIRED. 

RECORD  SIZE  IS  SET  TO  IBUF  IN  DATA  STATEMENT. 

EACH  HOLLERITH  WORO  CONSISTS  OF  SIX  CHARACTERS, 

AND  THUS  OCCUPIES  ONE  AND  ONE-HALF  WORDS. 

IF ( IU.NE. IUSAV)THEN 
INQUIRE (UNIT=IU,OPENED=OD) 

IF( . NOT.OD)  OPEN(UNIT=IU, ACCESS= ’DIRECT' ,FORM=' UNFORMATTED1 , 
*  STATUS= 1  UNKNOWN ' ,ERR=9090,RECL  =  IBUF) 

IUSAV=IU 
ENO  IF 


IBLK=IBL 
IPOS=JUNIT ( IU ) 

I REC =ISECR( IU ) 

IF { IPOS.EQ.O )  IPOS  - 1 
I F ( IREC .EQ.O) IREC=1 


ooo  o  oo  oooo 


I F ( IBL.EQ.O)  IBLK=IUNIT(IU) 

IF( IBLK.LT. IPOS)  GO  TO  5 
4  IF ( IBLK.EQ. IPOS)  GO  TO  3 

FULL  DUMMY  READ  IS  REQUIRED  IN  ORDER  TO  VERIFY  RECORD. 

FILES  ARE  ZERO-FILLED  IN  INITIAIZATION  ON  THE  UNI  VAC, 

BUT  ARE  NOT  ON  THE  VAX  -  ERR=99  BRANCH  IS  USED. 

READ ( IU 1 IREC,ERR=99)LQ,NQ,NFQ,NIQ,NAQ,NBQ, (NMBQ, 1=1 ,LQ+2) , 
♦(FDOCQ, 1=1 ,NFQ) , ( IDOCQ, 1=1 ,NIQ) ,(NMBQ, 1=1 ,NAQ) , 

*(VQ,M=( { IRST-1 )*LQ+1 ) , ( IRST-1 )*LQ+IBUF 
*- (8+LQ+NFQ+NIQ+NAQ+(3+LQ+NAQ)/2 ) ) 
IF(LQ.EQ.O.OR.NBQ.EQ.O.OR.NFQ.LT.O.OR.NIQ.LT.O.OR.NAQ.LT.O) 
♦GO  TO  99 

IWORDS  IS  THE  TOTAL  WORDS  CONTAINED  IN  THE  SEGMENT 
IWORDS= (8+LQ+NFQ+N IQ+NAQ+ (3+LQ+NAQ ) /2 )+(LQ*NQ ) 

IREC  IS  THE  RECORD  NO.  FOR  THE  NEXT  SEGMENT 
IREC=( ( IWORDS-1 )/IBUF)+l+IREC 
IPOS=IPOS+l 
I UN I T ( IU }=IPO$ 

JUNIT ( IU )=IPOS 
GO  TO  4 


5  IF=0 
IREC=1 

IF ( IBL.EQ.O)  I B LK =1 
IPOS=l 

IUNIT ( I U ) = I POS 
JUNIT i I U ) = I POS 
ISECR( IU  )=0 
GO  TO  4 
3  CONTINUE 

THIS  DUMMY  READ  IS  NECESSARY  FOR  END  OF  FILE  CHECKING, 
OTHERWISE,  ARRAY  LIMITS  CAN  EASILY  BE  EXCEEDED. 

READ(IU‘ IREC, ERR=99)LQ,NQ,NFQ,NIQ, NAQ, NBQ, (NMBQ, 1=1, LQ+2), 
*(FDOCQ, 1=1, NFQ),( IDOCQ, 1=1, NIQ), (NMBQ, 1=1, NAQ), 

*( VQ,M=( ( IRST-1 )*LQ+1 ),( IRST-1 )*LQ+IBUF 
*- (8+LQ+NFQ+N IQ+NAQ+ (3+LQ+NAQ ) /2 ) ) 

IF ( LQ . EQ . 0 . OR . NBQ . EQ . 0 . OR . NFQ . LT . 0 . OR . NI Q . LT . 0 . OR . NAQ . LT . 0 ) 
♦GO  TO  99 
C 

Ml=( IRST-1 )*LQ+1 

M2= ( I RST -1 )*LQ+IBUF - (8+LQ+NFQ+N IQ+NAQ+ ( 3+LQ+NAQ )/2 ) 

Cl 

NL=NQ*LQ 

N2=M1+NL-1 

IF(M2.GT.N2)M2=N2 

C 

C 

READ(IU ' IREC ,ERR=99)LR,NR,NFR,NIR ,NAR,NBR,NMBR,NMFR, 

*( IPR(I ) ,1=1 ,LR) , ( FDOCR ( J ) ,J=1 ,NFR) , 

♦( I DOCR ( K ) ,K=1 ,NIR ) , ( ADOCR(L ) ,L=1 ,NAR ) , 

*( VR(M) ,M=M1 ,M2) 

I F ( NR . GT . NNNR . OR . LR . GT . NN I P . OR . NF  R . GT . NNF . 
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*  OR.NIR.GT.NNI .OR.NAR.GT.NNA)  GO  TO  95 
Cl 

IF(JFLG.NE.l)  GO  TO  8 

IW0RDS=(8+LR+NFR+NIR+NAR+(3+LR+NAR)/2 )+(LR*NR) 

C  IREC  IS  THE  RECORD  NO.  FOR  THE  LAST  RECORD  IN  THIS  SEGMENT 
I REC  =  ( ( IWORDS-1 ) / 1 B  UF )  + 1 REC 
GO  TO  9 

8  IF(M2.EQ.N2)G0  TO  9 
M1=M2+1 
M2=M2+I8UF 
IF(M2.GT.N2)M2=N2 
I  REC  =  I  REC-*-! 

READ(IU ' IREC,ERR=99)(VR(J ) ,J=M1,M2) 

GO  TO  8 
9  CONTINUE 
C 
C 

IPOS=IPOS+l 
IUNIT(IU)= IPOS 
JUNIT ( IU)=IPOS 
I SECR ( I U ) = I REC+1 
C 

IF(MSGR.EQ.O)  GO  TO  108 

IF(B210)  WRITE(6,1000)IU,NMFR,NBR,NMBR,NR,LR,NFR,NIR,NAR 
1000  FORMAT ( '  READ  UNIT', 13,';  FILE  '  ,A6, 

*  SEGNUM',14,';  SEGNAM  *,A6,’;  N=',I6, 

*  L= 1 , 14, '  NF  = 1 ,14, 1  NI  =  ',I4,'  NA=\I4) 

C 

IF(B1)  WRITE (6, 1011 )  I U , NMFR , NBR , NMBR , NR , LR , NFR , NI R , NAR 

1011  FORMAT ( '  RD  ' ,I4,2X,A6,2X,I4,2X,A6,2X,I6,4I4) 

C 

IF ( B35 )  WRITE(6,1012)(IPR(I),I=1,LR) 

1012  FORMAT! '  PARAMETERS:  '12(2X,A6)/(13X,12(2X,A6) ) ) 

C 

IF ( . N0T.B45)  GO  TO  110 

IF( (NFR+NIR+NAR) .EQ.O)  GO  TO  110 

WRITE (6,1013) 

1013  FORMAT (  '  ADDL  DATA: '  ) 

IF(NFR.GT. 0)WRITE (6, 1100) ( FDOCR ( I ) , 1=1 ,NFR) 

IF (NIR.GT.O)WRI TE (6,1101 ) ( IDOCR( I ) , I =1 ,NIR ) 

I F { NAR ,GT.O)WRITE (6 , 1102 ) ( ADOCRt I ) , 1=1 ,NAR) 

1100  FORMAT (10G1 1.5) 

1101  FORMAT ( IX , 1216 ) 

1102  FORMAT (1X.12A6) 

C 

110  IF (  .NOT .869 )  GO  TO  107 
JL=IRST*LR 
J1=JL-LR+1 

WRITE (6 , 1014 ) ( VR( I ) ,  1=0 1 , JL ) 

JL= (NR+IRST-1 )*LR 
J1=JL+1-LR 

WRITE (6, 1015) (VR(J ) ,J=01 ,JL ) 

1014  FORMAT ( '  FIRST  CYCLE : ‘ , 10G1 1 .5/( 13X, 10G1 1 .5) ) 

1015  FORMAT ( 1  LAST  CYCLE:  ' , 10G1 1 . 5/( 13X , 10G11 . 5) ) 
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107  IF ( .NOT. BIO)  GO  TO  108 
WRITE (6, 1017) 

IQ1=IRST 

IQ2=IQ1+NR-1 

DO  106  I = I Q 1 , IQ2 

JL=I*LR 

J1=JL+1-LR 

WRITE(6,1016)  I , ( VR(J )  ,J=J 1  ,JL ) 
106  CONTINUE 

1016  F0RMAT(5X,I5,3X,10G12.6) 

1017  FORMAT (//'  LISTING  OF  DATA1///) 

108  IF=0 
IUP=IU 
RETURN 


C 

C 

95  IF=5 

WRI TE ( 6 , 1005 ) NNNR , NN I P , NNF , NN I , NNA , 

*  NR,LR,NFR,NIR,NAR 

1005  FORMAT ( // 1  A  DIMENSION  IS  TOO  SMALL.'// 

*  '  NNNR= 1 ,  16 , '  NNIP= ‘ , 16 , '  NNF=',I6, 

*  1  NN I  =  * ,16, 1  NNA=‘ ,16//'  NR=',I6, 

*  '  LR=‘ ,16, 1  NFR= 1 , 16 , '  NIR=',I6,’ 

RETURN 

99  IF=1 

WRITE(6 , 1001 )  IU 
1001  FORMAT! 1  EOF  ON  UNIT  ',13) 

90  IREC=1 
IP0S=0 

I UN I T ( I U ) = IPOS 
JUNIT ( IU )=IPOS 
ISECR(IU )=0 
RETURN 

9090  WRITE(6,*)  '  ERROR  IN  OPENING  UNIT  \IU 
END 


NAR=',I6//) 
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oooooo  o  oo  ooooo  ooooooo 


SUBROUTINE  ZWRIT (JU , IF  ,  IBL ) 


THIS  SUBROUTINE  IS  THE  WRITE  HALF  OF  AN  INPUT-OUTPUT 
PACKAGE  FOR  HANDLING  NON -FORMATTED,  ASCII  FORTRAN 
WRITTEN  DATA  FILES,  COMMONLY  REFERRED  TO  AS 
FEB  (FAST  EASY  BINARY)  FILES. 


CHARACTERS  ADOCR , IPR, NMFR.NMRR 
CHARACTERS  ADOCW, IPW,NMFW,NMbrf 
COMMON  /  WHDR  /LW,NW,NBW,NFW,NIW,NAW 
COMMON  /  WHDR1  /NMBW ,NMFW , IPW( 1 ) 

COMMON  /WD0CF/FD0CW(1)  /WDOC I / I DOCW ( 1 )  /WDOCA/ADOCW(l ) 

COMMON  /  WDATA  /  VW(1) 

NOTE:  ORIGINAL  ZREAD  CONSISTED  OF  RHDR  AND  WHDR  COMMONS  ALONE, 
ASCII  FORTRAN  REQUIRED  PLACING  CHARACTER  VARIABLES  IN 
SEPARATE  COMMONS  -  RHDR1  AND  WHDR1. 

COMMON  /RHDR  /LR,NR,N8R,NFR,NIR,NAR 
COMMON  /RHDR1  /NMBR,NMFR, I  PR ( 1 ) 

COMMON  /RDOCF/FDOCR(I)  /RDOC I /I DOCR ( 1 )  /RDOCA/ADOCR(l ) 

COMMON  /  RDATA  /  VR(1) 


COMMON  /  DIAGS  /  MSGR ,MSGW,NNNR,NNNW,NNIP .NNF.NNI ,NNA, IRST, IWST 
LOGICAL  B1,B210,B10,B35,B45,B69,0D 
COMMON  /  JPOS  /  JUNIT(30) 

COMMON  /DRDCOM/  JFLG, ISECR ( 30) 

DIMENSION  I UN I T ( 30 ) 

DATA  MSGW  /  2  / 

DATA  LLSW  /  1  /.  IRST,  IWST  /  1,  1  / 

DATA  IBUF/600/ 


IW=1 

IF(JU.LT.O)  IW=2 
I U = AB  S  ( J  U  ) 

OPEN  DIRECT  ACCESS  FEB  FILES  AS  REQUIRED. 

RECORD  SIZE  IS  SET  TO  IBUF  IN  DATA  STATEMENT. 

EACH  HOLLERITH  WORD  CONSISTS  OF  SIX  CHARACTERS, 

AND  THUS  OCCUPIES  ONE  AND  ONE-HALF  WORDS. 

IF ( I U . NE . IUSAV )THEN 
INQUIRE (UNIT=IU,OPENED=OD) 

IF ( .NOT.OD)  OPEN(UNIT=IU ,ACCESS= ‘DIRECT* ,FORM= 'UNFORMATTED ' , 
*  STATUS3 1 UNKNOWN ' ,ERR=9090,RECL=IBUF ) 

IUSAV=IU 
ENO  IF 
C 
C 


81=MSGW.EQ. 1 

B210=MSGW . GE . 2 . AND .MSGW . LE  .  10 
B10=MSGW.EQ. 10 
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B35=MSGW.EQ.3.0R.MSGW.EQ.5.0R.MSGW.EQ.7.0R.MSGW.EQ.9.0R.MSGW.EQ.10 
B45=MSGW.EQ.4.0R.MSGW.EQ.5.0R.MSGW.GE .8.AND.MSGW.LE.10 
B69=MSGW . GE . 6 . AND . MSGW . LE . 9 
C 

I 8LK= I BL 
IPOS=JUNIT( IU ) 

I REC= I SECR { I U ) 

I F ( IPOS.EQ.O )  IPOS=l 
IF(IREC.EQ.O)  IREC=1 
I F ( IBL.EQ.O)  I BLK  =  I UN I T ( IU ) 

I F ( IBLK.LT. IPOS )  GO  TO  5 
4  I F  ( IBLK.EQ. IPOS)  GO  TO  3 

FULL  DUMMY  READ  IS  REQUIRED  IN  ORDER  TO  VERIFY  RECORD. 

FILES  ARE  ZERO-FILLED  IN  INITIAIZATION  ON  THE  UNIVAC, 

BUT  ARE  NOT  ON  THE  VAX  -  ERR=99  BRANCH  IS  USED. 

READ (IU'IREC,ERR=99)LQ,NQ,NFQ,NIQ, NAQ, NBQ, (NMBQ, 1=1, LQ+2), 

*(FDOCQ, 1=1 ,NFQ) , ( IDOCQ, 1=1 ,NIQ) , (NMBQ, 1=1 ,NAQ) , 

*(VQ,M=( (IRST-1 )*LQ+1 ) , (IRST-1 )*LQ+IBUF 
*- (8+LQ+NFQ+N IQ+NAQ+ (3+LQ+NAQ ) /2 ) ) 
IF(LQ.EQ.O.OR.NBQ.EQ.O.OR.NFQ.LT.O.OR.NIQ.LT.O.OR.NAQ.LT.O) 

*GO  TO  99 

C  IWORDS  IS  THE  TOTAL  WORDS  CONTAINED  IN  THE  SEGMENT 

IW0RDS=(8+LQ+NFQ+NIQ+NAQ+(3+LQ+NAQ)/2)+(LQ*NQ) 

C  IREC  IS  THE  RECORD  NO.  FOR  THE  NEXT  SEGMENT 
IREC= ( ( IWORDS-1 )/IBUF) +1+1 REC 
IPOS=IPOS+l 
IUNIT  (II1  )  =  IPOS 
JUNIT(lU)=IPOS 
GO  TO  4 
C 

5  IREC=1 

IPOS=l 
I SECR ( I U ) =0 
IUNIT ( IU )=IP0S 
J  UN I T ( I U )  =  IPOS 
IF  ( IBL.NE.O)  GO  TO  4 
C 

C  FIND  RECORD  NO.  FOR  WRITE  AT  END  OF  FILE,  IBL=0 
2  READ(IU'IREC,ERR=6)LQ,NQ,NFQ,NIQ,NAQ,NBQ, (NMBQ, 1=1, LQ+2), 

*(FDOCQ, 1=1, NFQ) ,( IDOCQ, 1=1, NIQ), (NMBQ, 1=1, NAQ), 

*( VQ,M=( (IRST-1 )*LQ+1 ) , (IRST-1 )*LQ+IBUF 
*- (8+LQ+NFQ+N IQ+NAQ+ (3+LQ+NAQ ) /2 ) ) 

IF(LQ.EQ.O.OR. NBQ .EQ.O.OR.NFQ.LT.O.OR.NIQ.LT.O.OR. NAQ . LT . 0 ) 

*G0  TO  6 

I WORDS3 (8+LQ+NFQ+N IQ+NAQ+ (3+LQ+NAQ ) /2 ) + { LQ*NQ ) 

IREC=( ( IWORDS-1 )/IBUF)+l+IREC 
IP0S=IP0S+1 
IUNIT(IU)=IPOS 
JUNIT ( I U ) ~ I POS 
C2 

GO  TO  2 
C 

6  CONTINUE 
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WRITE (6, 1001 )  IU 
C 
C 

3  CONTINUE 
NBW=IPOS 

GO  TO  (81,82), IW 

81  IF ( NW . GT . NNNW . OR . LW . GT . NN I P . OR . NFW . GT . NNF . 

*  OR.NIW.GT.NNI .OR.NAW.GT.NNA)  GO  TO  95 
C 

Ml= ( IWST-1 )*LW+1 

M2=I8UF - (8+LW+NFW+NI W+NAW+ ( 3+LW+NAW)/2 )+Ml-l 
Cl 

NL=NW*LW 

Nl=( IWST-1 )*LW+1 
N2=N1+NL-1 
IF(M2.GT.N2)M2=N2 
C 

WRITE (IIJ‘IREC,ERR=97)LW,NW, NFW, NIW,NAW,NBW,NMBW,NMFW, 

*( IPW( I ) , I =1 ,IW) , (FOOCW(J ) ,J=1 ,NFW) , 

*( I DOC W ( K ) ,K=1,NIW) , ( ADOCW ( L ) , L  =  I ,NAW) , 

*(VW(M) ,M=M1 ,M2) 

Cl 

IF(JFLG.NE.l)  GO  TO  70 

IWORDS= (8+LW+NFW+N IW+NAW+ ( 3+LW+NAW ) /2 )+ (LW*NW ) 

C  IREC  IS  THE  RECORD  NO.  FOR  THE  LAST  RECORD  IN  THIS  SEGMENT 

I REC = ( ( I WORDS- 1 )/IBUF)+IREC 
GO  TO  83 

70  IF(M2.EQ.N2)G0  TO  83 
M1=M2+1 

M2=M2+IBUF 

IF(M2.GT.N2)M2=N2 

IREC-IREC+l 

WRITE ( IU ' IREC, ERR=97)(VW(J),J=M1, M2) 

GO  TO  70 
C 

82  Ml  =  ( IRST-1 )*LR+1 

M2=IBUF-(8+LR+NFR+NIR+NAR+(3+LR+NAR)/2)+Ml-l 

C 

NL=NR*LR 

Nl=( IRST-1 )*LR^1 
N2=N1+NL-1 
IF(M2.GT.N2)M2=N2 
C 

WRITE (IU‘ IREC, ERR=97)LR, NR, NFR,NIR,NAR,NBW,NMBR,NMFR, 
*(IPR(I),I  =  1,LR), (FD0CR(J ) ,J  =  1 ,NFR) , 

*( ID0CR(K ) ,K=1 ,NIR ) , ( ADOCR (L ) ,L=1 ,NAR ) , 

*{ VR(M) ,M=M1 ,M2 ) 

Cl 

IF( JFLG.NE . 1 )  GO  TO  71 

IW0RDS=(8+LR+NFR+NIR+NAR+(3+LR+NAR)/2)+(LR*NR) 

C  IREC  IS  THE  RECORD  NO.  FOR  THE  LAST  RECORD  IN  THIS  SEGMENT 

IREC=( ( IWORDS-1 )/IBUF)+IREC 
GO  TO  83 

71  IF(M2.EQ.N2)G0  TO  83 
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M1=M2+1 
M2 =M2+IBUF 
IF(M2.GT.N2)M2=N2 
IREC=IREC+1 

WRITE  { IU ' IREC ,ERR=97 ) ( VR (J ) ,J=M1 ,M2 ) 
GO  TO  71 

83  CONTINUE 


IPOS=IPOS+l 
ISECR(IU)=IREC+1 
I UN IT(IU)=I POS 
JUNIT ( IU  )  =  IPOS 
GO  TO  (84,85),IW 

84  IF ( B210 )  WR I TE ( 6 , 1000 ) I U , NMFW , NBW , NMB W , NW , LW , NFW , N I W , NAW 
1000  FORMAT! '  WRITE  UNIT', 13,';  FILE  ',A6, 

*  SEGNUM',14,';  SEGNAM  ',A6,';  N=',I6, 

*  L= 1 ,14 , 1  NF= 1 , 14 , 1  NI  =  ',I4,'  NA=',I4) 


IF ( B 1 )  WRITE (6 , 1011 )  IU, NMFW, NBW, NMBW.NW.LW, NFW, NIW, NAW 

1011  FORMAT! '  WRT  ' ,I4,2X,A6,2X,I4,2X,A6,2X,I6,4I4) 

IF( B35 )  WRITE (6 , 1012 ) ( IPW( I ) , 1=1 ,LW) 

1012  FORMAT!'  PARAMETERS:  ' 12 ( 2X , A6 ) / ( 13X , 12 ( 2X , A6 ) ) ) 

IF(  .N0T.B45)  GO  TO  110 

if!  (nfw+niw+naw) .eq.o)  go  to  no 

WRITE(6, 1013 ) 

1013  FORMAT! '  ADDL  DATA: ' ) 

IF(NFW.GT.0)WRITE(6,1100)(FD0CW(I ) ,1=1, NFW) 
IF(NIW.GT.0)WRITE(6,1101)(ID0CW(I),I=1,NIW) 
IF(NAW.GT.0)WRITE(6,1102)(AD0CW(I ) ,1=1 ,NAW) 

1100  FORMAT (10G1 1.5) 

1101  FORMAT! IX, 1216) 

1102  FORMAT! IX, 12A6) 

110  IF( .N0T.B69)  GO  TO  107 
JL=IWST*LW 
J1=JL-LW+1 

WRITE(6 , 1014 ) (VW( I ) , I=J 1 , JL ) 

JL=(NW+IWST-1)*LW 

J1=JL+1-LW 

WR I TE (6,1015)! VW{ J ) ,J=J 1 ,JL ) 

1014  FORMAT!'  FIRST  CYCLE: ' , 10G1 1.5/(13X, 10G1 1.5) ) 

1015  FORMAT!'  LAST  CYCLE:  ' , 10G1 1 . 5/ ( 1 3X , 10G11 . 5) ) 

107  IF!. NOT. BIO)  GO  TO  108 
WRITE(6, 1017) 

IQ1=IWST 
IQ2=IQ1+NW-1 
00  106  I=IQ1 , IQ2 
JL=I*LW 
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J1=JL+1-LW 

WRITE (6 , 1016 )  I ,  (VW(J  )  ,J=J  1 , JL } 

106  CONTINUE 

1016  FORMAT (5X , 15, 3X , 10G 12. 6 ) 

1017  FORMAT!//'  LISTING  OF  DATA'///) 

C 

GO  TO  86 

85  IF ( 8210 )  WRITE(6,1000)IU,NMFR,NBW,NMBR,NR,LR,NFR,NIR,NAR 
C 

IF(B1)  WRITE (6 , 1011 )  I U , NMFR , NBW , NMB R , NR , LR , NFR , N I R , NAR 
C 

IF( B35 )  WRITE (6 , 1012 ) ( IPR ( I ) , 1=1 ,LR ) 

C 

IF( .N0T.B45)  GO  TO  109 

IF! (NFR+NIR+NAR) .EQ.O)  GO  TO  109 

WRITE (6,1013) 

IF(NFR. GT.O)WRIT£ (6 , 1100 ) ( FDOCR ( I ) , I =1 , NFR ) 

IF(NIR.GT.O) WRITE (6, 1101)! IOOCR (I),I=1,NIR) 

IF(NAR .GT .0)WRITE (6 , 1102 ) ( ADOCR { I ) , 1=1 ,NAR) 

C 

109  IF ( .N0T.B69)  GO  TO  117 
JL=IRST*LR 
J1=JL+1-LR 

WRITE (6 , 1014 ) ( VR ( I ) , I =J1 , JL ) 

JL= (NR+IRST-1 )*LR 
J1=JL+1-LR 

WRITE (6 , 1015 ) ( VR(J ) ,J=J1 , JL ) 

C 

117  IF(. NOT. BIO)  GO  TO  108 
WRITE (6 , 1017 ) 

I Q1 = I RST 
IQ2=IQ1+NR-1 
DO  116  I-IQ1 , IQ2 
JL  =1 *LR 
J1=JL+1-LR 

WRITE (6 , 1016 )  I , ( VR (J ) ,J=J 1 ,JL ) 

116  CONTINUE 
C 
C 

86  CONTINUE 
108  I F =0 

I UP  =  I U 
RETURN 
C 
C 

95  IF  =5 

WRI It (b,1005)NNNW,NNIP,NNF,NNI  ,NNA, 

*  NW.LW.NFW.NIW.NAW 

1005  FORMAT (//'  A  DIMENSION  IS  TOO  SMALL.'// 


* 

’  NNNW= ' 

.16.’ 

NNIP= ' , 16 , ' 

NNF= ‘ , 16, 

* 

'  NN I  = 

' .16.' 

NNA= ' , 16/ / '  NW=' ,16, 

♦ 

LW=  ' 

.16.' 

NFW=' ,16.' 

N I W= 1 , I 6 , '  NAW=',I6//) 

RE  TURN 


97  IF -  I 


15 


WRITE (6, 1003)  IU 

1003  FORMAT { '  WRITE  ERROR  ON  UNIT  ',13) 

LU=IU 
GO  TO  90 
99  IF=1 

WRITE (6, 1001)  IU 
1001  FORMAT { 1  EOF  ON  UNIT  \I3) 

LU=IU 
GO  TO  90 
C 

ENTRY  RESETW(KU) 

LU=KU 

CLO$E(UNIT=LU) 

IUSAV=0 

90  IREC=1 
IP0S=0 
IUNIT(lU)=0 
JUNIT(LU)=0 
I SECR (LU ) =0 
RETURN 

9090  WRITE(6,*)  '  ERROR  IN  OPENING  UNIT  ',IU 
END 
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APPENDIX  B 


**★*★*****★*★★**★**★★★★★ ********************************** 


PROGRAM:  FEBCON/ASCII 

PURPOSE:  THIS  PROGRAM  READS  A  FEB  FILE  WRITTEN  IN 
FIELD  DATA  AND  REWRITES  THE  FE8  FILE  IN 
ASCII  CHARACTERS. 


CHARACTERS  NMBR1, NMFR 1 , 1  PR  1 , AOOCR1 

COMMON  /  RHDR  /  LR,NR,NBR,NMBR,NMFR,NFR,NIR,NAR,IPR(20) 

COMMON  /RHDR2  /LR2,NR2,NBR2,NFR2,NIR2,NAR2 
COMMON  /RHDR I  /NMBR1,NMFR1,IPR1(20) 

COMMON  /RDOCF/FDOCR ( 125 )  /RDOC I/IDOCR ( 125 )  /RD0CA/AD0CR(200) 
COMMON  /RDOCA1/ADOCR 1(200) 

COMMON  /  DIAGS  /  MSGR ,MSGW , NNNR , NNNW , NNI P , NNF , NNI , NNA , IRST , IWST 
COMMON  /  RDATA  /  VR ( 24000) 

EXTERNAL  ZREAD(FOR) 

DATA  NNIP , NNI , NNA/ 20 , 125 , 200/ , NNF/ 125/ 

C 

NNNR=6000 

101  WRITES,*)  ‘ENTER  IU.NS,  IS,MSGR,I0U,  IOB.MSGW' 

READ (5,*, =99 )IU,NB , IB.MSGR, IOU, IOB.MSGW 
WRITE (6 , 1003 ) I U , IOU.NB , IB , IOB 
1003  FORMAT!  ‘  INPUT  UNIT=\I4,'  OUTPUT  UNIT=‘,I4, 

*  '  NO.  OF  SEGS=‘ ,16,'  START  SEG/R=‘ , 16, 

*  ‘  START  SEG/W=',I6/) 

IF ( IOB .LE .0) I0B=0 
I0U1=-I0U 

DO  4  I =1 ,NB 

CALL  ZREADf IU, IF, IB) 

IF(IF.NE.O)  GO  TO  98 

IB=0 

LR2=LR 

NR2=NR 

NBR2=NBR 

NFR2=NFR 

NIR2=NIR 

NAR2=NAR 

IWC=NAR 

C  SUBROUTINE  FFDASC  IS  FOUNO  IN  THE  ASCII  FORTRAN  LIBRARY. 

CALL  FFDASC! IWC.ADOCR.ADOCRl) 

IWC=1 

CALL  FFDASC! IWC,NMBR,NMBR1) 

IWC=1 

CALL  FFDASC! I WC, NMFR, NMFR 1) 

IWC=LR 

CALL  FFDASC! IWC, IPR, IPR1) 

CALL  ZWRITA! I0U1 , IF , IOB) 

I0B=0 

4  CONTINUE 
GO  TO  101 
C 


) 


■i 
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98  IF(IF.GT.l)  GO  TO  100 
WRITE (6,9800) 

9800  FORMAT! /'  EOF  ON  INPUT.  NEXT  7) 

GO  TO  101 

99  WRITE (6, 6600) 

6600  FORMAT (//'  OF  JOB') 

STOP 

97  WRITE(6,9700)  NB.IB 

9700  FORMAT!//'  **  INPUT  ERROR.  NO.  OF  SEGS=' ,15, '  START  SEG/R=' ,15) 
STOP 

100  CONTINUE 
WRITE (6, 8000) IF 

8000  FORMAT!'  IF®' ,16) 

STOP 


o  o  o  o  o  o 


Q****************************************************************** 


PROGRAM:  FEBCON/FLDDATA 

PURPOSE:  THIS  PROGRAM  READS  A  FEB  FILE  WRITTEN  IN 
ASCII  AND  REWRITES  THE  FEB  FILE  IN 
FIELD  DATA. 


★****★**★★★*★★★*★★★*★**★★★★★★*★★** *************************** 


CHARACTER*6  NMBR1,NMFR1,IPR1,AD0CR1 

COMMON  /  RHDR  /  LR,NR,NBR,NMBR,NMFR,NFR,NIR,NAR,IPR(20) 

COMMON  /RHDR2  /LR2,NR2,NBR2,NFR2,NIR2,NAR2 
COMMON  /RHDR1  /NMBR1,NMFR1,IPR1(20) 

COMMON  /RDOCF /FDOCR ( 125 )  /ROOC I /IDOCR ( 125 )  /RD0CA/AD0CR(200) 
COMMON  /RD0CA1/AD0CRK200) 

COMMON  /  DIAGS  /  MSGR , MSGW , NNNR , NNNW , NN I P , NNF , NN I , NNA , I RST , I WST 
COMMON  /  RDATA  /  VR ( 24000) 

DIMENSION  NMFR2(2) 

EXTERNAL  ZWRIT(FOR) 

DATA  NNIP.NNI , NNA/20 , 125 , 200/ .NNF/125/ 


C 


NNNR=6000 

101  WRITE (6,*)  'ENTER  IU.NS, IS, MSGR, IOU, IOB, MSGW' 
READ ( 5 , * , END=99 ) I U , NB , I B , MSGR , I OU , I OB , MSGW 
WRITE (6 , 1003 )IU, IOU, NB , IB , IOB 
1003  FORMAT!1  INPUT  UNIT=' ,14, '  OUTPUT  UNIT= ' ,14, 

*  '  NO.  OF  SEGS='  ,16, ‘  START  SE6/R=* , 16, 

*  ’  START  SEG/W=\  16/) 

IF(IC3.LE.0)I0B=0 

I0U1=-I0U 

00  4  1=1, NB 

CALL  ZREADA(IU,IF,IB) 

I F ( IF.NE.O)  GO  TO  98 

IB=0 

LR=LR2 

NR=NR2 


NBR=NBR2 

NFR=NFR2 

C  WRITE(6,*)'NFR=' ,NFR 
NIR=NIR2 

KIAD=MAD? 

IWC=NAR2+( (NAR2+1 )/2 ) 

C  SUBROUTINE  FASCFD  IS  FOUND  IN  THE  ASCII  FORTRAN  LIBRARY. 
CALL  FASCFD ( I WC.ADOCRl.ADOCR) 

IWC=2 

CALL  FASCFD! I WC,NM8R1,NMBR) 

IWC=2 

CALL  FASCFD! I WC,NMFR1,NMFR2) 

NMFR=NMFR2(1 ) 

C  WRITE (6 ,*) 'NFR=' ,NFR 

IWC=LR2+( (LR2+1 )/2) 

CALL  FASCFD! IWC.IPR1.IPR) 

C  WRITE (6 , * ) 'LR,NR,NBR,NFR,NAR,NIR' ,LR,NR,NBR,NFR,NAR,NIR 

CALL  ZWRIT(I0U1,IF,I0B) 

1 08=0 


4  CONTINUE 
GO  TO  101 

98  IF(IF.GT.l)  GO  TO  100 
WRITE (6, 9800) 

9800  FORMATS ‘  EOF  ON  INPUT.  NEXT  7) 

GO  TO  101 

99  WRITE (6, 6600) 

6600  FORMAT (//'  END  OF  JOB') 

STOP 

97  WRITE(6,9700)  NB,IB  ,  , 

9700  FORMAT(//‘  **  INPUT  ERROR.  NO.  OF  SEGS=,,I5,'  START  SEG/R=  ,15) 
STOP 

100  CONTINUE 

WRITE (6, 8000) IF 

8000  FORMAT! '  IF=* ,16) 

STOP 

END 
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SUBROUTINE  ZREADA( IU, IF , IBL ) 

CHARACTERS  ADOCR, I  PR , NMFR , NMBR , NMBQ 
COMMON  /RHDR2  /LR,NR,NBR,NFR,NIR,NAR 
COMMON  /RHDR1  /NMBR, NMFR, IPR(1 ) 

COMMON  /RDOCF/FDOCR{l )  /RDOCI/1DOCRU )  /RDOCAl/ADOCR(l ) 

COMMON  /  RDATA  /  VR(1) 

COMMON  /  DIAGS  /  MSGR,MSGW,NNNR,NNNW,NNIP,NNF,NNI ,NNA, IRST, IWST 
C  COMMON  /  JPOS  /  J UNIT (30) 

C  COMMON/DRDCOM/  JFLG, ISECR(30) 


Same  as  ASCII  FORTRAN  ZREAD 


SUBROUTINE  ZWRITA(JU, IF , IBL ) 

CHARACTERS  ADOCR , I PR , NMF R , NMBR , NMBQ 
CHARACTERS  ADOCW, IPW.NMFW, NMBW 
COMMON  /  WHDR  /LW,NW,NBW,NFW,NIW,NAW 
COMMON  /  WHDRl  /NMBW,NMFW, IPW(1 ) 

COMMON  /WD0CF/FD0CW(1)  /WDOC I /I DOCW ( 1 )  /WDOCA/ADOCW( 1 ) 

COMMON  /  WDATA  /  VW( 1 ) 

COMMON  /RHDR2  /LR,NR,NBR,NFR,NIR,NAR 
COMMON  /RHDR1  /NMBR, NMFR, I  PR ( 1 ) 

COMMON  /RD0CF/FD0CR(1)  /RDOC I / I DOCR ( 1 )  /RD0CA1 /ADOCR (1 ) 

COMMON  /  RDATA  /  VR ( 1 ) 

COMMON  /  DIAGS  /  MSGR ,MSGW,NNNR,NNNW,NNIP,NNF,NNI ,NNA, IRST, IWST 
LOGICAL  B1,B210,B10,B35,B45,B69,0D 
C  COMMON  /  JPOS  /  J  UN I T ( 30 ) 

C  COMMON  /DRDCOM/  JFLG , I SECR ( 30 ) 


Same  as  ASCII  FORTRAN  ZWRIT 
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